Introdução

A um pouco mais de um mês estudantes impulsionados por problemas que as universidades estaduais paulistas (USP, UNESP e UNICAMP) enfrentam, seja ele, má administração, corte financeiros, permanência estudantil, entraram em greve para reinvindicar suas pautas.

O país, hoje, vive uma crise, a qual gerou inúmeros cortes, inclusive na educação. Estes cortes na educação, em específico nas universidades, geraram revoltas dos estudantes, o que impulsinou o movimento grevista dos alunos dentro das três maiores universidades do Brasil, USP, UNESP e UNICAMP. Na UNICAMP, apesar de existir um movimento geral, cada instituto tem uma certa autonomia sobre as salas de aulas, e matérias ministradas por eles. Perante a este fato, a greve de alunos de cada instituto é decidida por meio de assembléias estudantis, organizada, normalmente, pelo centro acadêmico. Entretando, as tomadas de decisões baseadas nos resultados das assembléias são questionadas devido a sua falta representatividade. Com o propósito de verificar, de fato, a opinião da classe estudantil, foi criado o site “https://votaunicamp.herokuapp.com/”, no qual alunos matriculados na UNICAMP podem votar e até mesmo justificarem o voto se desejarem.

##   codigo     nivel                    curso total sim nao abstencao
## 1      1 Graduacao               Matemática     3   2   1         0
## 2      1  Mestrado               Matemática     1   0   1         0
## 3     10 Graduacao      Engenharia Mecânica    40  10  30         0
## 4     10  Mestrado      Engenharia Mecânica     4   2   2         0
## 5    100 Graduacao      Ciências do Esporte     2   0   2         0
## 6    101 Graduacao Engenharia de Manufatura     3   0   3         0

Análises

proporção por area

Campus Campinas

Campus Limeira

Campus Piracicaba

Intervalos de Confiança

Tabelas interativa

Tamanho da amostra

Se quisermos encontrar o tamanho amostral \(n\) necessário na Unicamp para que a probabilidade da nossa estimativa diferir absolutamente do verdadeiro valor por um erro escolhido \(B = 0,03\) seja de \(\alpha = 0.05\), chegariamos usando o que sabemos de probabilidade em

\[n = \dfrac{N}{4(N-1)D + 1}\]

onde \(N\) é a quantidade total de alunos e \(D = \frac{B^2}{z_{\alpha}^2}\), sendo \(z_{\alpha} = 1.64\).

Sendo assim, o tamanho amostral necessário para a Unicamp toda seria de \[722\]

Se o interesse for um estudo por instituto, podemos ver na tabela abaixo qual o tamanho amostral necessário, com as mesmas condições anteriores, para cada um dos institutos da Unicamp

Tamanho Amostral
IMECC 369
FEM 468
FEF 333
IA 416
IEL 318
IFCH 441
IFGW 383
IQ 351
IB 298
FEEC 354
FEQ 344
FE 338
IE 326
IC 405
FEC 369
FEAGRI 272
FCM 397
IG 282
FEA 366
PROFIS 246
FENF 158
FCF 175
FCA 550
FT 470
FOP 255
## Compar ações

Existe um pensamento de que a opinião dos alunos de exatas difere dos alunos que não estão em um curso de exatas. Devido a isso, resolvemos separar nossos dados entre dois outros conjuntos de dados, um com os alunos que não são de exatas e outro somente com os alunos de exatas.

NaoExatas = subset(mytbl, codigo == 26 | codigo == 25 | codigo == 64 | codigo == 23 | codigo == 22 | codigo == 6 |
                     codigo == 100 | codigo == 27 | codigo == 45 | codigo == 21 | codigo == 63 | codigo == 58 |
                     codigo == 46 | codigo == 15 | codigo == 107 | codigo == 14 |
                     codigo == 109 | codigo == 110 | codigo == 17 | codigo == 47 |
                     codigo == 16 | codigo == 44 | codigo == 75 | codigo == 30 | codigo == 54 | codigo == 55 |
                     codigo == 19 | codigo == 7 | codigo == 57 | codigo == 56 | codigo == 18 | codigo == 20 | codigo == 38)


Exatas = subset(mytbl, codigo != 26 & codigo != 25 & codigo != 64 & codigo != 23 & codigo != 22 & codigo != 6 &
                   codigo != 100 & codigo != 27 & codigo != 45 & codigo != 21 & codigo != 63 & codigo != 58 &
                     codigo != 46 & codigo != 15 & codigo != 107 & codigo != 14 &
                     codigo != 109 & codigo != 110 & codigo != 17 & codigo != 47 &
                     codigo != 16 & codigo != 44 & codigo != 75 & codigo != 30 & codigo != 54 & codigo != 55 &
                     codigo != 19 & codigo != 7 & codigo != 57 & codigo != 56 & codigo != 18 & codigo != 20 & codigo != 38)

Podemos ver que de fato as proporções são diferentes:

props = c(p_NaoExatas = sum(NaoExatas$nao)/sum(NaoExatas$total),
p_Exatas = sum(Exatas$nao)/sum(Exatas$total))
names(props) = c("Não Exatas", "Exatas")
props
## Não Exatas     Exatas 
##  0.5132743  0.7138889

Mas precisamos formalizar isso, usando um teste de hipótese, onde temos como hipótese nula “As proporções são iguais” e hipótese alternativa “As proporções são diferentes”. O nível de significância escolhido será de \(\alpha = 0.01\). Temos então o seguinte teste:

x = c(rep(1,sum(Exatas$nao)), rep(0,sum(Exatas$total)-sum(Exatas$nao)))
y = c(rep(1,sum(NaoExatas$nao)), rep(0,sum(NaoExatas$total)-sum(NaoExatas$nao)))

(teste_dif_exatas_nao_exatas = t.test(x,y))
## 
##  Welch Two Sample t-test
## 
## data:  x and y
## t = 3.7916, df = 172.91, p-value = 0.0002066
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.09618106 0.30504805
## sample estimates:
## mean of x mean of y 
## 0.7138889 0.5132743

Como temos um valor-p muito baixo, ou seja, menor que o nível de significância escolhido, rejeitamos a hipótese de que as proporções são iguais, confirmando assim o que já era esperado anteriormente.

Testes de hipótese

Foi realizado testes para a igualdade de proporção de votos contra para todos pares de cursos do banco de dados, utilizando como critério os intervalos de confiança de 95% para a proporção em cada curso. Pares de cursos que não foi encontrada interseção significam que, com 95% de certeza, estes pares tem opiniões diferentes em relação à greve: as proporções têm diferenças significativas, mostrando assim uma mentalidade ortodoxa entre os pares selecionados.

Devido à escassez de dados para cada curso, se o teste para diferença de proporção foi significativo, significa que a diferença entre as proprções destes pares foi grande.

a=1
cursos = matrix(nrow=100, ncol=2)
for (i in (1:(dim(mytbl)[1]-1))){
  for(j in ((i+1):(dim(mytbl)[1]))){
    if(mytbl$upper[i]<mytbl$lower[j] | mytbl$lower[i]>mytbl$upper[j]){
        cursos[a, 1] = paste(mytbl$curso[i], mytbl$nivel[i], sep = " ")
        cursos[a, 2] = paste(mytbl$curso[j], mytbl$nivel[j], sep = " ")
        a = a + 1
    }
  }
}
(cursos = cursos[1:58,])
##       [,1]                                     
##  [1,] "Engenharia Mecânica Graduacao"          
##  [2,] "Engenharia Mecânica Graduacao"          
##  [3,] "Engenharia Mecânica Graduacao"          
##  [4,] "Engenharia Mecânica Graduacao"          
##  [5,] "Engenharia Mecânica Graduacao"          
##  [6,] "Engenharia de Manufatura Graduacao"     
##  [7,] "Engenharia de Produção Graduacao"       
##  [8,] "Genética e Biologia Molecular Doutorado"
##  [9,] "Engenharia Elétrica Graduacao"          
## [10,] "Engenharia Elétrica Graduacao"          
## [11,] "Engenharia Elétrica Graduacao"          
## [12,] "Engenharia Elétrica Graduacao"          
## [13,] "Engenharia Elétrica Graduacao"          
## [14,] "Engenharia Elétrica Graduacao"          
## [15,] "Engenharia Elétrica Graduacao"          
## [16,] "Engenharia Civil Graduacao"             
## [17,] "Engenharia Civil Graduacao"             
## [18,] "Engenharia Civil Graduacao"             
## [19,] "Engenharia de Alimentos Graduacao"      
## [20,] "Engenharia de Alimentos Graduacao"      
## [21,] "Engenharia de Alimentos Graduacao"      
## [22,] "Medicina Graduacao"                     
## [23,] "Medicina Graduacao"                     
## [24,] "Medicina Graduacao"                     
## [25,] "Ciências Sociais Graduacao"             
## [26,] "Ciências Econômicas Graduacao"          
## [27,] "Linguística Graduacao"                  
## [28,] "História Graduacao"                     
## [29,] "Estatística Graduacao"                  
## [30,] "Estatística Graduacao"                  
## [31,] "Estatística Graduacao"                  
## [32,] "Música Graduacao"                       
## [33,] "Música Graduacao"                       
## [34,] "Música Graduacao"                       
## [35,] "Música Graduacao"                       
## [36,] "Música Graduacao"                       
## [37,] "Música Graduacao"                       
## [38,] "Música Graduacao"                       
## [39,] "Música Graduacao"                       
## [40,] "Educação Física Graduacao"              
## [41,] "Educação Física Graduacao"              
## [42,] "Ciência da Computação Mestrado"         
## [43,] "Ciência da Computação Mestrado"         
## [44,] "Engenharia de Computação Graduacao"     
## [45,] "Engenharia de Computação Graduacao"     
## [46,] "Licenciatura em Física Graduacao"       
## [47,] "Licenciatura em Física Graduacao"       
## [48,] "Licenciatura em Física Graduacao"       
## [49,] "Licenciatura em Física Graduacao"       
## [50,] "Licenciatura em Física Graduacao"       
## [51,] "Licenciatura em Física Graduacao"       
## [52,] "Licenciatura em Física Graduacao"       
## [53,] "Licenciatura em Física Graduacao"       
## [54,] "Engenharia Elétrica Graduacao"          
## [55,] "Ciência da Computação Graduacao"        
## [56,] "Engenharia de Alimentos Graduacao"      
## [57,] "Arquitetura e Urbanismo Graduacao"      
## [58,] "Arquitetura e Urbanismo Graduacao"      
##       [,2]                                             
##  [1,] "Linguística Graduacao"                          
##  [2,] "História Graduacao"                             
##  [3,] "Música Graduacao"                               
##  [4,] "Licenciatura em Física Graduacao"               
##  [5,] "Arquitetura e Urbanismo Graduacao"              
##  [6,] "Licenciatura em Física Graduacao"               
##  [7,] "Licenciatura em Física Graduacao"               
##  [8,] "Licenciatura em Física Graduacao"               
##  [9,] "Ciências Sociais Graduacao"                     
## [10,] "Linguística Graduacao"                          
## [11,] "História Graduacao"                             
## [12,] "Música Graduacao"                               
## [13,] "Licenciatura em Física Graduacao"               
## [14,] "Arquitetura e Urbanismo Graduacao"              
## [15,] "Comunicação Social - Midialogia Graduacao"      
## [16,] "Música Graduacao"                               
## [17,] "Licenciatura em Física Graduacao"               
## [18,] "Arquitetura e Urbanismo Graduacao"              
## [19,] "Música Graduacao"                               
## [20,] "Licenciatura em Física Graduacao"               
## [21,] "Arquitetura e Urbanismo Graduacao"              
## [22,] "Música Graduacao"                               
## [23,] "Licenciatura em Física Graduacao"               
## [24,] "Arquitetura e Urbanismo Graduacao"              
## [25,] "Estatística Graduacao"                          
## [26,] "Licenciatura em Física Graduacao"               
## [27,] "Estatística Graduacao"                          
## [28,] "Estatística Graduacao"                          
## [29,] "Música Graduacao"                               
## [30,] "Licenciatura em Física Graduacao"               
## [31,] "Arquitetura e Urbanismo Graduacao"              
## [32,] "Educação Física Graduacao"                      
## [33,] "Ciência da Computação Mestrado"                 
## [34,] "Engenharia de Computação Graduacao"             
## [35,] "Engenharia Elétrica Graduacao"                  
## [36,] "Ciência da Computação Graduacao"                
## [37,] "Engenharia de Alimentos Graduacao"              
## [38,] "Licenciatura Integrada Química/Física Graduacao"
## [39,] "Engenharia Agrícola Graduacao"                  
## [40,] "Licenciatura em Física Graduacao"               
## [41,] "Arquitetura e Urbanismo Graduacao"              
## [42,] "Licenciatura em Física Graduacao"               
## [43,] "Arquitetura e Urbanismo Graduacao"              
## [44,] "Licenciatura em Física Graduacao"               
## [45,] "Arquitetura e Urbanismo Graduacao"              
## [46,] "Engenharia Elétrica Graduacao"                  
## [47,] "Ciência da Computação Graduacao"                
## [48,] "Engenharia de Alimentos Graduacao"              
## [49,] "Licenciatura em Ciências Biológicas Graduacao"  
## [50,] "Química Graduacao"                              
## [51,] "Ciência da Computação Doutorado"                
## [52,] "Licenciatura Integrada Química/Física Graduacao"
## [53,] "Engenharia Agrícola Graduacao"                  
## [54,] "Arquitetura e Urbanismo Graduacao"              
## [55,] "Arquitetura e Urbanismo Graduacao"              
## [56,] "Arquitetura e Urbanismo Graduacao"              
## [57,] "Licenciatura Integrada Química/Física Graduacao"
## [58,] "Engenharia Agrícola Graduacao"

Pode-se observar que existe uma polaridade forte na universidade: 58 pares de cursos entre todos que foram testados para igualdade de proporção de votos contra, falharam, concluindo que estes pares de cursos tiveram opiniões divergentes em relação à greve.

Pode ser observado a forte presença de divergência entre cursos de áreas diferentes (biológicas, exatas e humanas), onde o conflito entre cursos de áreas iguais é bem mais fraco, porém ainda existem, com enfoque no curso “Licenciatura em Física”, onde este curso, de exatas, conflituou com outros cursos de exatas com frequência considerável.

contribuição de cada instituto